Tech Arsenal 1/Tech Arsenal (Arsenal Computer).ISO/tek-02/out18com.zip/GIVETIME.INC

Text File | 1993-01-04 | 297b | 15 lines

const givetime_tag: string[90]
   = #0'@(#)CURRENT_FILE LAST_UPDATE Give up time under doubledos 1.0'#0;
#log Give up time under doubledos 1.0

procedure give_up_time;      {give up unused time under doubledos}
var
   reg:  regpack;
begin
   reg.ax := $fe01;
   msdos(reg);
end;